home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9411a.d64 / 24platine .set (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  38 lines
  1. 0 PRINT"[147]":LIST999-
  2. 1 FLOPPY=8:DRUCKER=4:SEC=1
  3. 10 PRINT"[154]SETUP FUER PFOX-TREIBER: 24PLATINE.":PRINT
  4. 20 PRINT"SOLL DER DRUCKERTREIBER ALS":PRINT"'P[146][154]RINTER' ODER 'PR-[146][154]24PLATINE'"
  5. 30 INPUT"GESPEICHERT WERDEN";N$:IFN$<>"-"ANDN$<>"P"THENRUN
  6. 40 IFN$="P"THEN100
  7. 50 INPUT"LOESCHE ALTE VERSION J/N";N$:IFN$="N"THENEND
  8. 60 OPEN15,FLOPPY,15,"S:PR-24PLATINE"
  9. 70 PRINT"HOFFENTLICH GELOESCHT."
  10. 80 PRINT#15,"C:PR-24PLATINE=24PLATINE":CLOSE15
  11. 90 OPEN2,FLOPPY,2,"PR-24PLATINE,P,A":GOTO 120
  12. 100 OPEN15,FLOPPY,15,"C:PRINTER=24PLATINE":CLOSE15
  13. 110 OPEN2,FLOPPY,2,"PRINTER,P,A"
  14. 120 PRINT#2,CHR$(DRUCKER)CHR$(SEC);
  15. 130 DP$="":CN=4
  16. 140 READ DC$:IFDC$="_"THEN170
  17. 150 DP$=DP$+CHR$(VAL(DC$))
  18. 160 GOTO140
  19. 170 PRINT#2,CHR$(LEN(DP$))DP$;:CN=CN-1
  20. 180 DP$="":IFCNTHEN140
  21. 190 CLOSE2:PRINT"FERTIG."
  22. 999 REM                                 ZEILENABSTAND!;DRUCKRICHTUNG,CR+LF ...
  23. 1000 DATA27,101,86,48,52,56,27,85,49,_
  24. 1199 REM                                GRAFIKMODUS 1/180 ZOLL;1280 SPALTEN
  25. 1200 DATA27,42,39,0,5,_
  26. 1299 REM                                ZEILENVORSCHUB
  27. 1300 DATA13,_
  28. 1399 REM                                TABULIEREN ODER BELIEBIGE SPACES
  29. 1400 DATA27,36,100,0,_
  30. 2000 REM 24-NADELTREIBER FUER PRINTFOX
  31. 2100 REM SOURCECODE ERHAELTLICH BEI:
  32. 2200 REM     OLAF HERING
  33. 2300 REM     MARIENSTR.2
  34. 2400 REM     72461 ALBSTADT
  35. 2500 REM DISK+10 DM INKL. PORTO+VERSAND
  36. 2600 REM
  37. 2700 REM START MIT: RUN 1
  38.